home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / NEWSINCE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-02-01  |  695 b   |  43 lines
  1. 10  'NEWSINCE - HAMCALC new programs & upgrades - 11 JAN 96 rev. 01 FEB 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS
  4. 40  COLOR 7,0,0
  5. 50  '
  6. 60  N=0
  7. 70  OPEN"I",1,"\data\docfiles\newsince.doc"
  8. 80  IF EOF(1)THEN 120
  9. 90  INPUT#1,Z$
  10. 100  N=N+1
  11. 110  GOTO 80
  12. 120  CLOSE
  13. 130  DIM A$(N)
  14. 140  '
  15. 150  OPEN"I",1,"\data\docfiles\newsince.doc"
  16. 160  FOR Z=1 TO N
  17. 170  INPUT#1,A$(Z)
  18. 180  NEXT Z
  19. 190  CLOSE
  20. 200  '
  21. 210  LN=0
  22. 220  FOR Z=1 TO N
  23. 230  LN=LN+1
  24. 240  PRINT A$(Z);
  25. 250  IF LN<24 THEN PRINT "":GOTO 300
  26. 260  IF LN=24 THEN GOSUB 340:LN=0:CLS
  27. 270  FOR Y=1 TO 24
  28. 280  IF LEFT$(A$(Z-Y),1)="*"THEN Z=Z-Y:GOTO 300
  29. 290  NEXT Y
  30. 300  NEXT Z
  31. 310  GOSUB 340
  32. 320  CLS:RUN EX$
  33. 330  '
  34. 340  COLOR 0,7
  35. 350  LOCATE 25,24
  36. 360  PRINT " Press 1 to continue or 0 to EXIT ";
  37. 370  COLOR 7,0
  38. 380  Z$=INKEY$:IF Z$=""THEN 380
  39. 390  IF Z$="1"THEN 500
  40. 400  IF Z$="0"THEN 320
  41. 410  GOTO 380
  42. 500  RETURN
  43.